home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2004 March / PCWMAR04.iso / Software / Resources / JawsPDF Creator / JawsPdfCreatorEn.exe / Disk1 / data1.cab / InstDirResource / procset / faux.ps < prev    next >
Encoding:
Text File  |  2003-08-08  |  18.1 KB  |  618 lines
  1. %!
  2. %%VMusage: 0 0
  3. %%VMlocation: global
  4. %%
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6. %%                                    %%
  7. %% FauxFontInit: the procedures used for implementing faux font     %%
  8. %% support when rendering PDF files.                    %%
  9. %%                                    %%
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11.  
  12. /FauxFontInit <<
  13.  
  14. /FixedSubstitutions <<
  15.   /TimesNewRoman /Times-Roman
  16.   /TimesNewRoman,Bold /Times-Bold
  17.   /TimesNewRoman,Italic /Times-Italic
  18.   /TimesNewRoman,BoldItalic /Times-BoldItalic
  19.   /Arial /Helvetica
  20.   /Arial,Bold /Helvetica-Bold
  21.   /Arial,Italic /Helvetica-Oblique
  22.   /Arial,BoldItalic /Helvetica-BoldOblique
  23. >>
  24.  
  25. /FontDictionary <<
  26. /FontType 3
  27. /FontMatrix [1 0 0 1 0 0]
  28. /FontBBox {0 0 0 0}
  29.  
  30. /SansWidths 256 dict
  31. dup begin
  32. /.notdef [100 54 400 700] def
  33. /space [100 54 400 700] def
  34. /exclam [64 176 256 426] def
  35. /quotedbl [124 304 229 747] def
  36. /numbersign [204 304 516 893] def
  37. /dollar [168 338 684 895] def
  38. /percent [289 502 727 1088] def
  39. /ampersand [184 364 751 1000] def
  40. /quoteright [65 137 165 418] def
  41. /parenleft [101 191 395 650] def
  42. /parenright [101 191 395 650] def
  43. /asterisk [181 116 501 588] def
  44. /plus [286 126 514 814] def
  45. /comma [54 175 206 501] def
  46. /hyphen [130 120 393 688] def
  47. /period [54 175 206 501] def
  48. /slash [155 171 569 632] def
  49. /zero [184 305 668 1188] def
  50. /one [152 229 555 1035] def
  51. /two [184 285 668 1188] def
  52. /three [184 289 668 1188] def
  53. /four [184 310 668 1188] def
  54. /five [184 300 668 1188] def
  55. /six [184 299 668 1188] def
  56. /seven [184 177 668 973] def
  57. /eight [184 296 668 1188] def
  58. /nine [184 303 668 1188] def
  59. /colon [54 175 206 501] def
  60. /semicolon [54 175 206 501] def
  61. /less [286 126 514 814] def
  62. /equal [286 126 514 814] def
  63. /greater [286 126 514 814] def
  64. /question [134 316 451 955] def
  65. /at [349 312 647 835] def
  66. /A [161 303 530 1195] def
  67. /B [180 314 621 1085] def
  68. /C [186 292 658 1189] def
  69. /D [179 318 682 1154] def
  70. /E [168 169 551 948] def
  71. /F [163 183 537 880] def
  72. /G [184 300 652 1205] def
  73. /H [194 313 721 1151] def
  74. /I [68 192 274 447] def
  75. /J [108 197 521 632] def
  76. /K [184 348 560 915] def
  77. /L [144 179 545 920] def
  78. /M [256 457 1019 1539] def
  79. /N [199 343 705 1082] def
  80. /O [208 300 732 1210] def
  81. /P [173 324 638 1005] def
  82. /Q [208 300 732 1210] def
  83. /R [176 339 633 1015] def
  84. /S [179 288 611 822] def
  85. /T [188 197 498 848] def
  86. /U [200 304 633 1066] def
  87. /V [162 322 591 1068] def
  88. /W [217 573 993 1782] def
  89. /X [168 290 638 948] def
  90. /Y [148 313 552 992] def
  91. /Z [148 213 547 922] def
  92. /bracketleft [85 196 394 691] def
  93. /backslash [155 171 569 632] def
  94. /bracketright [82 199 397 694] def
  95. /asciicircum [286 126 514 814] def
  96. /underscore [225 75 575 675] def
  97. /quoteleft [65 137 165 418] def
  98. /a [157 345 496 963] def
  99. /b [172 317 562 930] def
  100. /c [158 318 515 975] def
  101. /d [172 317 562 930] def
  102. /e [165 327 517 926] def
  103. /f [72 195 517 629] def
  104. /g [172 318 558 989] def
  105. /h [171 311 550 1005] def
  106. /i [64 181 216 426] def
  107. /j [64 181 216 426] def
  108. /k [130 348 503 959] def
  109. /l [64 181 216 426] def
  110. /m [249 473 796 1555] def
  111. /n [171 311 550 1005] def
  112. /o [174 312 565 984] def
  113. /p [172 317 562 929] def
  114. /q [172 317 562 930] def
  115. /r [102 229 460 678] def
  116. /s [137 316 515 677] def
  117. /t [96 170 580 713] def
  118. /u [171 312 550 1032] def
  119. /v [116 301 552 954] def
  120. /w [159 440 1085 1501] def
  121. /x [128 333 499 1002] def
  122. /y [133 303 528 953] def
  123. /z [119 216 485 711] def
  124. /braceleft [108 207 356 584] def
  125. /bar [60 194 533 540] def
  126. /braceright [108 207 356 584] def
  127. /asciitilde [286 126 514 814] def
  128. /exclamdown [64 176 256 426] def
  129. /cent [164 345 688 1023] def
  130. /sterling [181 308 671 1036] def
  131. /fraction [105 175 191 655] def
  132. /yen [148 322 698 1051] def
  133. /florin [138 273 714 799] def
  134. /section [177 271 601 737] def
  135. /currency [244 282 608 883] def
  136. /quotesingle [65 137 165 418] def
  137. /quotedblleft [124 304 229 747] def
  138. /guillemotleft [136 289 410 870] def
  139. /guilsinglleft [81 133 301 492] def
  140. /guilsinglright [81 133 301 492] def
  141. /fi [136 376 733 1076] def
  142. /fl [136 376 733 1076] def
  143. /endash [150 200 450 750] def
  144. /dagger [158 213 524 948] def
  145. /daggerdbl [158 213 524 948] def
  146. /periodcentered [54 175 206 501] def
  147. /paragraph [230 277 424 843] def
  148. /bullet [139 181 431 531] def
  149. /quotesinglbase [65 137 165 408] def
  150. /quotedblbase [124 304 229 747] def
  151. /quotedblright [124 304 229 747] def
  152. /guillemotright [136 289 410 870] def
  153. /ellipsis [300 435 900 1500] def
  154. /perthousand [436 722 1039 1562] def
  155. /questiondown [134 316 453 955] def
  156. /grave [100 150 400 800] def
  157. /acute [100 150 400 800] def
  158. /circumflex [100 150 400 800] def
  159. /tilde [100 150 400 800] def
  160. /macron [100 150 400 800] def
  161. /breve [100 150 400 800] def
  162. /dotaccent [100 150 400 800] def
  163. /dieresis [100 150 400 800] def
  164. /ring [100 150 400 800] def
  165. /cedilla [100 150 400 800] def
  166. /hungarumlaut [100 150 400 800] def
  167. /ogonek [100 150 400 800] def
  168. /caron [100 150 400 800] def
  169. /emdash [300 400 900 1500] def
  170. /AE [271 289 849 1619] def
  171. /ordfeminine [106 276 349 624] def
  172. /Lslash [144 179 545 920] def
  173. /OE [278 311 953 1704] def
  174. /ordmasculine [120 238 344 660] def
  175. /ae [259 485 871 1461] def
  176. /dotlessi [64 181 216 426] def
  177. /lslash [64 181 216 426] def
  178. /oslash [174 308 565 984] def
  179. /oe [283 450 949 1570] def
  180. /germandbls [174 315 566 1027] def
  181. /Ydieresis [148 313 552 992] def
  182. /trademark [325 392 845 1335] def
  183. /zcaron [119 216 485 711] def
  184. /Zcaron [148 213 547 922] def
  185. /scaron [137 316 515 677] def
  186. /Scaron [179 288 611 822] def
  187. /ydieresis [133 303 528 953] def
  188. /thorn [172 317 567 929] def
  189. /yacute [133 303 528 953] def
  190. /udieresis [171 312 550 1032] def
  191. /ucircumflex [171 312 550 1032] def
  192. /uacute [171 312 550 1032] def
  193. /ugrave [171 312 550 1032] def
  194. /divide [286 126 514 814] def
  195. /odieresis [174 312 565 984] def
  196. /otilde [174 312 565 984] def
  197. /ocircumflex [174 312 565 984] def
  198. /oacute [174 312 565 984] def
  199. /ograve [174 312 565 984] def
  200. /ntilde [171 311 550 1005] def
  201. /eth [174 312 565 984] def
  202. /idieresis [64 181 216 426] def
  203. /icircumflex [64 181 216 426] def
  204. /iacute [64 181 216 426] def
  205. /igrave [64 181 216 426] def
  206. /edieresis [165 327 517 926] def
  207. /ecircumflex [165 327 517 926] def
  208. /eacute [165 327 517 926] def
  209. /egrave [165 327 517 926] def
  210. /ccedilla [158 318 515 975] def
  211. /aring [157 345 496 963] def
  212. /adieresis [157 345 496 963] def
  213. /atilde [157 345 496 963] def
  214. /acircumflex [157 345 496 963] def
  215. /aacute [157 345 496 963] def
  216. /agrave [157 345 496 963] def
  217. /Thorn [173 324 638 1005] def
  218. /Yacute [148 313 552 992] def
  219. /Udieresis [200 304 633 1066] def
  220. /Ucircumflex [200 304 633 1066] def
  221. /Uacute [200 304 633 1066] def
  222. /Ugrave [200 304 633 1066] def
  223. /multiply [286 126 514 814] def
  224. /Odieresis [208 300 732 1210] def
  225. /Otilde [208 300 732 1210] def
  226. /Ocircumflex [208 300 732 1210] def
  227. /Oacute [208 300 732 1210] def
  228. /Ograve [208 300 732 1210] def
  229. /Ntilde [199 343 705 1082] def
  230. /Eth [179 318 702 1154] def
  231. /Idieresis [68 192 274 447] def
  232. /Icircumflex [68 192 274 447] def
  233. /Iacute [68 192 274 447] def
  234. /Igrave [68 192 274 447] def
  235. /Edieresis [168 169 551 948] def
  236. /Ecircumflex [168 169 551 948] def
  237. /Eacute [168 169 551 948] def
  238. /Egrave [168 169 551 948] def
  239. /Ccedilla [186 292 658 1189] def
  240. /Aring [161 303 530 1195] def
  241. /Adieresis [161 303 530 1195] def
  242. /Atilde [161 303 530 1195] def
  243. /Acircumflex [161 303 530 1195] def
  244. /Aacute [161 303 530 1195] def
  245. /Agrave [161 303 530 1195] def
  246. /mu [171 312 550 1032] def
  247. /plusminus [286 126 514 814] def
  248. /degree [178 172 328 338] def
  249. /registered [386 214 622 666] def
  250. /logicalnot [286 126 514 814] def
  251. /copyright [386 214 622 666] def
  252. /brokenbar [60 194 533 540] def
  253. /minus [286 126 514 814] def
  254. /threesuperior [126 235 417 772] def
  255. /twosuperior [131 228 412 749] def
  256. /onesuperior [106 205 437 617] def
  257. /threequarters [308 551 938 1654] def
  258. /onehalf [287 542 874 1529] def
  259. /onequarter [278 533 883 1508] def
  260. end
  261.  
  262. /SerifWidths 256 dict 
  263. dup begin
  264. /.notdef [110 110 290 490] def
  265. /space [110 110 290 490] def
  266. /exclam [120 175 304 441] def
  267. /quotedbl [180 285 243 486] def
  268. /numbersign [350 322 406 677] def
  269. /dollar [350 322 406 677] def
  270. /percent [382 437 502 986] def
  271. /ampersand [403 455 492 901] def
  272. /quoteright [90 144 210 300] def
  273. /parenleft [167 167 259 366] def
  274. /parenright [167 167 259 366] def
  275. /asterisk [286 73 295 346] def
  276. /plus [360 88 280 440] def
  277. /comma [90 156 210 310] def
  278. /hyphen [201 9 198 234] def
  279. /period [90 156 210 310] def
  280. /slash [175 95 549 572] def
  281. /zero [350 322 406 677] def
  282. /one [225 257 531 802] def
  283. /two [350 322 406 677] def
  284. /three [350 322 406 677] def
  285. /four [350 322 406 677] def
  286. /five [350 322 406 677] def
  287. /six [350 322 406 677] def
  288. /seven [350 322 406 677] def
  289. /eight [350 322 406 677] def
  290. /nine [350 322 406 677] def
  291. /colon [90 156 210 310] def
  292. /semicolon [90 156 210 310] def
  293. /less [360 88 280 440] def
  294. /equal [360 88 280 440] def
  295. /greater [360 88 280 440] def
  296. /question [228 295 432 572] def
  297. /at [493 172 414 618] def
  298. /A [382 281 417 669] def
  299. /B [361 365 342 672] def
  300. /C [367 228 386 754] def
  301. /D [400 369 415 765] def
  302. /E [354 258 309 610] def
  303. /F [338 246 285 588] def
  304. /G [381 303 406 728] def
  305. /H [454 373 409 811] def
  306. /I [226 221 78 376] def
  307. /J [219 222 326 675] def
  308. /K [390 412 323 734] def
  309. /L [357 254 302 597] def
  310. /M [603 380 430 818] def
  311. /N [448 245 410 711] def
  312. /O [393 349 505 895] def
  313. /P [375 348 317 637] def
  314. /Q [393 349 505 895] def
  315. /R [387 378 318 673] def
  316. /S [307 240 321 555] def
  317. /T [358 311 365 626] def
  318. /U [443 262 382 623] def
  319. /V [409 244 419 629] def
  320. /W [527 497 773 1023] def
  321. /X [368 324 496 860] def
  322. /Y [371 294 413 661] def
  323. /Z [323 263 410 647] def
  324. /bracketleft [160 168 259 362] def
  325. /backslash [175 95 549 572] def
  326. /bracketright [160 168 259 362] def
  327. /asciicircum [360 88 280 440] def
  328. /underscore [225 225 375 475] def
  329. /quoteleft [90 144 210 300] def
  330. /a [269 382 347 625] def
  331. /b [296 366 420 656] def
  332. /c [243 291 371 586] def
  333. /d [305 348 399 656] def
  334. /e [250 365 385 626] def
  335. /f [185 217 218 442] def
  336. /g [308 360 355 612] def
  337. /h [340 340 343 669] def
  338. /i [172 199 118 349] def
  339. /j [168 206 105 350] def
  340. /k [323 366 299 623] def
  341. /l [172 199 119 349] def
  342. /m [501 483 519 932] def
  343. /n [340 340 342 669] def
  344. /o [274 374 420 730] def
  345. /p [316 353 399 662] def
  346. /q [316 339 377 639] def
  347. /r [247 293 205 499] def
  348. /s [226 283 345 515] def
  349. /t [188 222 202 527] def
  350. /u [340 333 334 660] def
  351. /v [280 292 354 618] def
  352. /w [463 349 441 851] def
  353. /x [274 335 317 720] def
  354. /y [319 264 309 583] def
  355. /z [273 213 266 521] def
  356. /braceleft [180 155 239 345] def
  357. /bar [135 87 458 665] def
  358. /braceright [180 155 239 345] def
  359. /asciitilde [360 88 280 440] def
  360. /exclamdown [120 175 304 441] def
  361. /cent [350 322 406 677] def
  362. /sterling [350 322 406 677] def
  363. /fraction [20 20 485 680] def
  364. /yen [350 322 406 677] def
  365. /florin [350 322 406 677] def
  366. /section [286 183 297 505] def
  367. /currency [350 322 406 677] def
  368. /quotesingle [90 144 210 300] def
  369. /quotedblleft [180 285 243 486] def
  370. /guillemotleft [270 206 276 486] def
  371. /guilsinglleft [164 103 219 289] def
  372. /guilsinglright [164 103 219 289] def
  373. /fi [349 338 337 695] def
  374. /fl [349 338 340 695] def
  375. /endash [225 225 375 475] def
  376. /dagger [262 156 381 453] def
  377. /daggerdbl [262 156 381 453] def
  378. /periodcentered [90 156 210 310] def
  379. /paragraph [286 198 323 608] def
  380. /bullet [265 129 305 549] def
  381. /quotesinglbase [90 144 210 300] def
  382. /quotedblbase [180 285 243 486] def
  383. /quotedblright [180 285 243 486] def
  384. /guillemotright [270 206 276 486] def
  385. /ellipsis [450 450 750 950] def
  386. /perthousand [587 635 721 1405] def
  387. /questiondown [228 295 432 572] def
  388. /grave [200 200 300 500] def
  389. /acute [200 200 300 500] def
  390. /circumflex [200 200 300 500] def
  391. /tilde [200 200 300 500] def
  392. /macron [200 200 300 500] def
  393. /breve [200 200 300 500] def
  394. /dotaccent [200 200 300 500] def
  395. /dieresis [200 200 300 500] def
  396. /ring [200 200 300 500] def
  397. /cedilla [200 200 300 500] def
  398. /hungarumlaut [200 200 300 500] def
  399. /ogonek [200 200 300 500] def
  400. /caron [200 200 300 500] def
  401. /emdash [450 450 750 950] def
  402. /AE [504 348 621 917] def
  403. /ordfeminine [213 294 373 592] def
  404. /Lslash [357 254 302 597] def
  405. /Oslash [393 349 505 895] def
  406. /OE [469 478 685 1188] def
  407. /ordmasculine [216 296 380 682] def
  408. /ae [401 512 653 920] def
  409. /dotlessi [172 199 118 349] def
  410. /lslash [172 199 119 349] def
  411. /oslash [274 374 420 730] def
  412. /oe [434 511 739 1079] def
  413. /germandbls [311 463 381 717] def
  414. /Ydieresis [371 294 413 661] def
  415. /trademark [548 247 487 655] def
  416. /zcaron [273 213 266 521] def
  417. /Zcaron [323 263 410 647] def
  418. /scaron [226 283 345 515] def
  419. /Scaron [307 240 321 555] def
  420. /ydieresis [319 264 309 583] def
  421. /thorn [316 353 399 662] def
  422. /yacute [319 264 309 583] def
  423. /udieresis [340 333 334 660] def
  424. /ucircumflex [340 333 334 660] def
  425. /uacute [340 333 334 660] def
  426. /ugrave [340 333 334 660] def
  427. /divide [360 88 280 440] def
  428. /odieresis [274 374 420 730] def
  429. /otilde [274 374 420 730] def
  430. /ocircumflex [274 374 420 730] def
  431. /oacute [274 374 420 730] def
  432. /ograve [274 374 420 730] def
  433. /ntilde [340 340 342 669] def
  434. /eth [274 374 420 730] def
  435. /idieresis [172 199 118 349] def
  436. /icircumflex [172 199 118 349] def
  437. /iacute [172 199 118 349] def
  438. /igrave [172 199 118 349] def
  439. /edieresis [250 365 385 626] def
  440. /ecircumflex [250 365 385 626] def
  441. /eacute [250 365 385 626] def
  442. /egrave [250 365 385 626] def
  443. /ccedilla [243 291 371 586] def
  444. /aring [269 382 347 625] def
  445. /adieresis [269 382 347 625] def
  446. /atilde [269 382 347 625] def
  447. /acircumflex [269 382 347 625] def
  448. /aacute [269 382 347 625] def
  449. /agrave [269 382 347 625] def
  450. /Thorn [375 348 317 637] def
  451. /Yacute [371 294 413 661] def
  452. /Udieresis [443 262 382 623] def
  453. /Ucircumflex [443 262 382 623] def
  454. /Uacute [443 262 382 623] def
  455. /Ugrave [443 262 382 623] def
  456. /multiply [360 88 280 440] def
  457. /Odieresis [393 349 505 895] def
  458. /Otilde [393 349 505 895] def
  459. /Ocircumflex [393 349 505 895] def
  460. /Oacute [393 349 505 895] def
  461. /Ograve [393 349 505 895] def
  462. /Ntilde [448 245 410 711] def
  463. /Eth [400 369 415 765] def
  464. /Idieresis [226 221 78 376] def
  465. /Icircumflex [226 221 78 376] def
  466. /Iacute [226 221 78 376] def
  467. /Igrave [226 221 78 376] def
  468. /Edieresis [354 258 309 610] def
  469. /Ecircumflex [354 258 309 610] def
  470. /Eacute [354 258 309 610] def
  471. /Egrave [354 258 309 610] def
  472. /Ccedilla [367 228 386 754] def
  473. /Aring [382 281 417 669] def
  474. /Adieresis [382 281 417 669] def
  475. /Atilde [382 281 417 669] def
  476. /Acircumflex [382 281 417 669] def
  477. /Aacute [382 281 417 669] def
  478. /Agrave [382 281 417 669] def
  479. /mu [340 333 334 660] def
  480. /plusminus [360 88 280 440] def
  481. /degree [246 114 160 330] def
  482. /registered [514 86 394 488] def
  483. /logicalnot [360 88 280 440] def
  484. /copyright [514 86 394 488] def
  485. /brokenbar [135 87 458 665] def
  486. /minus [360 88 280 440] def
  487. /threesuperior [242 199 248 436] def
  488. /twosuperior [242 199 248 436] def
  489. /onesuperior [242 199 248 436] def
  490. /threequarters [544 431 617 978] def
  491. /onehalf [544 431 617 978] def
  492. /onequarter [544 431 617 978] def
  493. end
  494.  
  495. /Encoding StandardEncoding
  496.  
  497. /PaintType 0
  498.  
  499. /Caps [/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z]
  500.  
  501. /BuildChar {
  502.   exch
  503.   begin
  504.   20 dict begin
  505.   /ccode exch def
  506.   FontDescriptor /Flags get 2 and 0 ne {
  507.     /basefont /StreamSerifMM findfont def
  508.     /basecapheight 709 def
  509.     /basexheight 492 def
  510.     /basestemv [28 244 29 242] def
  511.     /basewidths SerifWidths def
  512.   } {
  513.     /basefont /StreamSansMM findfont def
  514.     /basecapheight 709 def
  515.     /basexheight 546 def
  516.     /basestemv [20 205 20 280] def
  517.     /basewidths SansWidths def
  518.   } ifelse
  519.   /gname Encoding ccode get def
  520.   false Caps {gname eq or dup {exit} if} forall {
  521.     /size
  522.     PDFWriter {
  523.       1
  524.     } {
  525.       FontDescriptor /CapHeight get abs basecapheight div
  526.       dup 0 eq {pop 1} if
  527.     } ifelse
  528.     def
  529.   } {
  530.     /size FontDescriptor /XHeight 2 copy known {
  531.       get abs basexheight div
  532.       dup 1 gt PDFWriter and {
  533.         pop 1
  534.       } if
  535.     } {
  536.       pop pop
  537.       PDFWriter {
  538.         1
  539.       } {
  540.         FontDescriptor /CapHeight get abs basecapheight div
  541.         dup 0 eq {pop 1} if
  542.       } ifelse
  543.     } ifelse
  544.     def
  545.   } ifelse
  546.   0.001 dup scale
  547.   /mat [1000 size mul 0
  548.   1 index neg FontDescriptor /ItalicAngle get dup sin exch cos div mul
  549.   2 index 0 0] def
  550.   /xlo basestemv 1 get basestemv 0 get
  551.   FontDescriptor /StemV get abs size div 1 index sub 3 1 roll sub div
  552.   dup 0 lt {pop 0} if dup 1 gt {pop 1} if def
  553.   /xhi basestemv 3 get basestemv 2 get
  554.   FontDescriptor /StemV get abs size div 1 index sub 3 1 roll sub div
  555.   dup 0 lt {pop 0} if dup 1 gt {pop 1} if def
  556.   basewidths gname known {
  557.     basewidths gname get aload pop
  558.     1 index sub xhi mul add 2 index add /whi exch def
  559.     xlo mul add /wlo exch def
  560.     /w Widths ccode FirstChar sub get def
  561.   } {
  562.     basewidths /.notdef get aload pop
  563.     1 index sub xhi mul add 2 index add /whi exch def
  564.     xlo mul add /wlo exch def
  565.     /w wlo def
  566.   } ifelse
  567.   /y w size div wlo sub whi wlo sub div def
  568.   y 0 lt {
  569.     /mat [w size div wlo div 0 0 1 0 0] mat matrix concatmatrix def
  570.     /y 0 def
  571.   } if
  572.   y 1 gt {
  573.     /mat [w size div whi div 0 0 1 0 0] mat matrix concatmatrix def
  574.     /y 1 def
  575.   } if
  576.   /x xlo xhi 1 index sub y mul add def
  577.   basefont [1 y sub dup 1 x sub mul exch x mul 1 x sub y mul x y mul]
  578. %%%%
  579.   FontDirectory /##_faux_## known {
  580. %
  581. % KAS 21/10/02
  582. % The code simply originally made a new font called ##_faux_##, that code was modified 
  583. % to reuse the font if it already existed, to avoid memory leaks. However, if two 
  584. % faux fonts then used different Encodings <sheesh> then the second font would 
  585. % keep the encoding of the first one. The simple way to avoid this, is to 
  586. % undefine the previous font, and then just make a brand new one. Hopefully this 
  587. % avoids memory leaks. Needs to be tested.
  588.     /##_faux_## undefinefont
  589.    }if
  590. %    exch pop /##_faux_## findfont exch
  591. %    1183615869 internaldict /setweightvector get exec
  592. %    /##_faux_## findfont
  593. %  } {
  594.     makeblendedfont /##_faux_## exch
  595.     dup /Encoding Encoding put definefont
  596. %  } ifelse
  597.   mat makefont setfont
  598. %%%%%
  599. %  makeblendedfont /##_faux_## exch
  600. %  dup /Encoding Encoding put definefont mat makefont setfont
  601. %%%%
  602.   0 0 moveto
  603.   w 0 
  604.   1 string dup 0 ccode put false charpath pathbbox
  605.   setcachedevice
  606.   newpath 0 0 moveto
  607.   1 string dup 0 ccode put false charpath
  608.   PaintType 0 eq {fill} {stroke} ifelse
  609.   end
  610.   end
  611. } bind
  612.  
  613. >>
  614.  
  615. >> /ProcSet defineresource
  616.  
  617.  
  618.